home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / CREATE.YOUR.OWN.bas < prev    next >
BASIC Source File  |  2012-02-16  |  5KB  |  111 lines
  1. 100  HOME 
  2. 102  FOR D = 1 TO 1200: NEXT D
  3. 105  SPEED= 60
  4. 110  VTAB 2: HTAB 5: PRINT "CREATE  YOUR  OWN  PROGRAMS"
  5. 120  VTAB 12: PRINT "PLEASE CHOOSE A SPEED OF DISPLAY:"
  6. 130  VTAB 14: PRINT "(TYPE IN ONE OF THE NUMBERS.)"
  7. 140  VTAB 16: HTAB 20: PRINT "1. SLOW"
  8. 150  VTAB 18: HTAB 20: PRINT "2. MEDIUM"
  9. 160  VTAB 20: HTAB 20: PRINT "3. FAST"
  10. 170  VTAB 22: GET CH: HOME : FOR D = 1 TO 1200: NEXT D
  11. 175  GOSUB 2000
  12. 180  VTAB 2: PRINT "THERE'S PLENTY OF ROOM ON THIS DISK FOR"
  13. 190  FOR D = 1 TO 100: NEXT D
  14. 200  VTAB 4: PRINT "YOU TO ADD YOUR OWN PROGRAMS."
  15. 210  FOR D = 1 TO 100: NEXT D
  16. 220  VTAB 6: PRINT "A DOUBLE-DENSITY DISK CAN HOLD UP TO"
  17. 230  FOR D = 1 TO 100: NEXT D
  18. 240  VTAB 8: PRINT "496 BLOCKS OF PROGRAMS.  THE SIZE OF"
  19. 250  FOR D = 1 TO 100: NEXT D
  20. 260  VTAB 10: PRINT "EACH PROGRAM IS NOTED BESIDE THE NAME OF"
  21. 270  FOR D = 1 TO 100: NEXT D
  22. 280  VTAB 12: PRINT "THE PROGRAM IN THE CATALOG."
  23. 290  FOR D = 1 TO 1000: NEXT D
  24. 300  VTAB 14: PRINT "TO WRITE YOUR OWN PROGRAMS, ALL YOU NEED"
  25. 310  FOR D = 1 TO 100: NEXT D
  26. 320  VTAB 16: PRINT "DO IS:"
  27. 330  FOR D = 1 TO 600: NEXT D
  28. 340  VTAB 18: HTAB 10: PRINT "1. BOOT THIS OR ANY DOS DISK"
  29. 350  VTAB 20: HTAB 10: PRINT "2. TYPE 'NEW' WHENEVER YOU"
  30. 360  FOR D = 1 TO 100: NEXT D
  31. 370  VTAB 22: HTAB 10: PRINT "SEE THE FLASHING CURSOR."
  32. 380  FOR D = 1 TO 200: NEXT D
  33. 390  PRINT : PRINT "- - PRESS THE SPACE BAR TO CONTINUE - -"
  34. 400  GET M$: HOME : FOR D = 1 TO 1200: NEXT D
  35. 410  VTAB 2: HTAB 10: PRINT "3. TYPE 'HOME' (AND RETURN)"
  36. 420  VTAB 4: HTAB 10: PRINT "TO CLEAR THE SCREEN."
  37. 430  FOR D = 1 TO 300: NEXT D
  38. 440  VTAB 6: HTAB 10: PRINT "4. TYPE IN THE LINES OF"
  39. 450  FOR D = 1 TO 100: NEXT D
  40. 460  VTAB 8: HTAB 10: PRINT "YOUR INSPIRED PROGRAM."
  41. 470  FOR D = 1 TO 300: NEXT D
  42. 480  VTAB 10: HTAB 10: PRINT "5. TYPE 'RUN' TO SEE IT GO."
  43. 490  FOR D = 1 TO 300: NEXT D
  44. 500  VTAB 12: HTAB 10: PRINT "6. TYPE 'LIST' AT ANY"
  45. 510  FOR D = 1 TO 300: NEXT D
  46. 520  VTAB 14: HTAB 10: PRINT "FLASHING CURSOR TO SEE"
  47. 530  VTAB 16: HTAB 10: PRINT "THE LINES OF YOUR PROGRAM."
  48. 540  FOR D = 1 TO 300: NEXT D
  49. 550  VTAB 18: HTAB 10: PRINT "7. SAVE YOUR PROGRAM BY TYPING:"
  50. 560  VTAB 20: HTAB 10: PRINT "'SAVE' AND 'YOUR PROGRAM'S NAME"
  51. 570  FOR D = 1 TO 400: NEXT D
  52. 580  VTAB 22: PRINT "- - PRESS THE SPACE BAR TO CONTINUE - -"
  53. 590  GET M$: HOME : FOR D = 1 TO 1200: NEXT D
  54. 600  VTAB 2: PRINT "TO LIST ANY PROGRAM ON YOUR MONITOR TYPE"
  55. 610  FOR D = 1 TO 100: NEXT D
  56. 620  VTAB 4: PRINT "'LIST' AT ANY FLASHING CURSOR.  TO STOP"
  57. 630  FOR D = 1 TO 100: NEXT D
  58. 640  VTAB 6: PRINT "THE LISTING IN THE MIDDLE, TYPE:"
  59. 650  FOR D = 1 TO 100: NEXT D
  60. 660  VTAB 8: PRINT "'CONTROL-C'.  TO RESTART THE LISTING"
  61. 670  FOR D = 1 TO 100: NEXT D
  62. 680  VTAB 10: PRINT "TYPE 'LIST', THE LINE NUMBER YOU WANT TO"
  63. 690  FOR D = 1 TO 100: NEXT D
  64. 700  VTAB 12: PRINT "LIST FROM, FOLLOWED BY A COMMA (AND"
  65. 710  FOR D = 1 TO 100: NEXT D
  66. 720  VTAB 14: PRINT "RETURN).  READ THE SUGGESTIONS IN THE"
  67. 730  FOR D = 1 TO 100: NEXT D
  68. 740  VTAB 16: PRINT "PROGRAM TITLED 'THE APPLESOFT SPEED"
  69. 750  FOR D = 1 TO 100: NEXT D
  70. 760  VTAB 18: PRINT "COMMAND'.     TO LIST ANY PROGRAM ON"
  71. 770  FOR D = 1 TO 100: NEXT D
  72. 780  VTAB 20: PRINT "PAPER, YOU NEED TO:"
  73. 790  FOR D = 1 TO 100: NEXT D
  74. 800  VTAB 22: PRINT "- - PRESS THE SPACE BAR TO CONTINUE - -"
  75. 810  GET M$: HOME : FOR D = 1 TO 1200: NEXT D
  76. 820  VTAB 2: HTAB 10: PRINT "1. 'LOAD' THE PROGRAM INTO"
  77. 830  FOR D = 1 TO 100: NEXT D
  78. 840  VTAB 4: HTAB 10: PRINT "THE COMPUTER. IF YOU HAVE JUST"
  79. 850  FOR D = 1 TO 100: NEXT D
  80. 860  VTAB 6: HTAB 10: PRINT "RUN THE PROGRAM, THE PROGRAM"
  81. 870  FOR D = 1 TO 100: NEXT D
  82. 880  VTAB 8: HTAB 10: PRINT "WILL BE ALREADY 'LOADED'."
  83. 890  FOR D = 1 TO 300: NEXT D
  84. 900  VTAB 10: HTAB 10: PRINT "2. SWITCH ON YOUR PRINTER."
  85. 910  FOR D = 1 TO 300: NEXT D
  86. 920  VTAB 12: HTAB 10: PRINT "3. TYPE 'PR#1' (AND PRESS"
  87. 930  VTAB 14: HTAB 10: PRINT "RETURN)."
  88. 940  FOR D = 1 TO 300: NEXT D
  89. 950  VTAB 16: HTAB 10: PRINT "4. TYPE 'LIST' AND PRESS RETURN."
  90. 960  FOR D = 1 TO 300: NEXT D
  91. 970  VTAB 18: HTAB 10: PRINT "5. AFTER THE PRINTER HAS"
  92. 980  FOR D = 1 TO 100: NEXT D
  93. 990  VTAB 20: HTAB 10: PRINT "FINISHED LISTING, TYPE 'PR#0'"
  94. 1000  FOR D = 1 TO 100: NEXT D
  95. 1010  VTAB 22: PRINT "- - PRESS THE SPACE BAR TO CONTINUE - -"
  96. 1020  GET M$: HOME : FOR D = 1 TO 1200: NEXT D
  97. 1030  VTAB 2: HTAB 10: PRINT "AND PRESS RETURN TO GET"
  98. 1040  FOR D = 1 TO 100: NEXT D
  99. 1050  VTAB 4: HTAB 10: PRINT "THE COMPUTER OUTPUT SENT TO"
  100. 1060  VTAB 6: HTAB 10: PRINT "YOUR MONITOR AGAIN."
  101. 1070  FOR D = 1 TO 800: NEXT D
  102. 1080  VTAB 12: PRINT "HAPPY PROGRAMMING !"
  103. 1090  FOR D = 1 TO 400: NEXT D
  104. 1100  VTAB 20: PRINT "(C) COPYRIGHT JUNE 1987     PHIL SHAPIRO"
  105. 1110  FOR D = 1 TO 4000: NEXT D
  106. 1120  HOME 
  107. 1130  END 
  108. 2000  IF CH = 1  THEN  SPEED= 0: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  109. 2010  IF CH = 2  THEN  SPEED= 60: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  110. 2020  IF CH = 3  THEN  SPEED= 120: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  111. 2030  RETURN